home *** CD-ROM | disk | FTP | other *** search
- *** 1.13 1992/03/06 19:34:30
- --- Changelog 1992/03/23 01:43:11
- ***************
- *** 268,270 ****
- --- 268,281 ----
- fixed nasty arg passing bug in the sfp code.
-
- ---------------------------- Patchlevel 16 ------------------------------
- +
- + log.c:: ++jrb
- + make adjustments for GCC_HACK and gcc 2.0
- +
- + cexp.c clog.c csqrt.c mod.c sinh.c :: Michael
- + fixes to save FP reggies.
- +
- + math.h:: ++jrb
- + dont proto clog() for g++, it clashes with clog stream.
- +
- + ---------------------------- Patchlevel 17 ------------------------------
- *** 1.13 1992/03/06 19:34:30
- --- PatchLevel.h 1992/03/23 01:43:11
- ***************
- *** 1,5 ****
- /*
- ! * PatchLevel: 16
- *
- * the Patch Level above is to identify the version
- * of the all the files in this directory. given the above
- --- 1,5 ----
- /*
- ! * PatchLevel: 17
- *
- * the Patch Level above is to identify the version
- * of the all the files in this directory. given the above
- *** 1.4 1992/02/03 20:19:23
- --- cexp.c 1992/03/23 01:43:15
- ***************
- *** 100,108 ****
- .even
- .globl _cexp
- _cexp:
- movel a1,d0 | save a1 as return value
- ! fetoxd a7@(4),fp0 | exp( z.real )
- ! fmoved a7@(12),fp2
- fcosx fp2,fp1
- fsinx fp2,fp2
- fmulx fp0,fp1 |
- --- 100,109 ----
- .even
- .globl _cexp
- _cexp:
- + fmovex fp2,sp@- | 12 Bytes
- movel a1,d0 | save a1 as return value
- ! fetoxd a7@(16),fp0 | exp( z.real )
- ! fmoved a7@(24),fp2
- fcosx fp2,fp1
- fsinx fp2,fp2
- fmulx fp0,fp1 |
- ***************
- *** 109,114 ****
- --- 110,116 ----
- fmulx fp0,fp2 |
- fmoved fp1,a1@ | fetch result.real
- fmoved fp2,a1@(8) | fetch result.imag
- + fmovex sp@+,fp2
- "); /* end asm */
- #endif __M68881__
-
- *** 1.5 1992/02/03 20:19:23
- --- clog.c 1992/03/23 01:43:15
- ***************
- *** 62,71 ****
- *
- */
-
- - #if defined (__M68881__) && !defined (_M68881)
- - /*# define _M68881*/
- - #endif
- -
- #include <stdio.h>
- #include <math.h>
- #include "pml.h"
- --- 62,67 ----
- *** 1.4 1992/02/03 20:19:23
- --- csqrt.c 1992/03/23 01:43:16
- ***************
- *** 81,90 ****
- *
- */
-
- - #if defined (__M68881__) && !defined (_M68881)
- - /*# define _M68881*/
- - #endif
- -
- #include <stdio.h>
- #include <math.h>
- #include "pml.h"
- --- 81,86 ----
- *** 1.6 1992/02/04 16:42:12
- --- log.c 1992/03/23 01:43:18
- ***************
- *** 197,203 ****
- _log10:");
- #ifdef __MSHORT__
- __asm__("
- ! link a6,#-24
- moveml #0x3e30,sp@-");
- #else
- __asm__("
- --- 197,203 ----
- _log10:");
- #ifdef __MSHORT__
- __asm__("
- ! link a6,#-32
- moveml #0x3e30,sp@-");
- #else
- __asm__("
- ***************
- *** 205,212 ****
- moveml #0x3f30,sp@-");
- #endif /* __MSHORT__ */
- __asm__("
- ! movel a6@(8),d2
- ! movel a6@(12),d3
- moveq #1,d6
- jra lgentry");
- #endif /* __GCC_HACK__ */
- --- 205,212 ----
- moveml #0x3f30,sp@-");
- #endif /* __MSHORT__ */
- __asm__("
- ! movel a6@(8),d4
- ! movel a6@(12),d5
- moveq #1,d6
- jra lgentry");
- #endif /* __GCC_HACK__ */
- *** 1.1 1992/02/03 20:19:23
- --- makefile.pml 1992/03/23 01:43:18
- ***************
- *** 70,76 ****
-
- DEFINE := -DIEEE -Datarist
- OPT := -O
- ! OFLAGS := -fomit-frame-pointer -fcombine-regs -fstrength-reduce
- OUTLIB := pml.olb
-
- CFLAGS := $(OPT) $(OFLAGS) $(XFLAGS) $(DEFINE) -I.
- --- 70,76 ----
-
- DEFINE := -DIEEE -Datarist
- OPT := -O
- ! OFLAGS := -fomit-frame-pointer -fstrength-reduce
- OUTLIB := pml.olb
-
- CFLAGS := $(OPT) $(OFLAGS) $(XFLAGS) $(DEFINE) -I.
- *** 1.11 1992/01/14 19:37:50
- --- math.h 1992/03/23 01:43:18
- ***************
- *** 135,141 ****
- --- 135,143 ----
- __EXTERN double cabs __PROTO((COMPLEX));
- __EXTERN COMPLEX cmult __PROTO((COMPLEX, COMPLEX));
- __EXTERN COMPLEX csqrt __PROTO((COMPLEX));
- + #ifndef __GNUG__
- __EXTERN COMPLEX clog __PROTO((COMPLEX));
- + #endif
- __EXTERN COMPLEX cacos __PROTO((COMPLEX));
- __EXTERN COMPLEX cadd __PROTO((COMPLEX,COMPLEX));
- __EXTERN COMPLEX casin __PROTO((COMPLEX));
- *** 1.5 1992/02/03 20:19:23
- --- mod.c 1992/03/23 01:43:19
- ***************
- *** 134,143 ****
- #ifdef __M68881__
-
- __asm("
- ! fmoved a7@(4), fp0 | value
- ! fmodd a7@(12),fp0 | base
- fmoved fp0,a7@- | push result
- moveml a7@+,d0-d1 | return_value
- "); /* end asm */
-
- #endif __M68881__
- --- 134,145 ----
- #ifdef __M68881__
-
- __asm("
- ! fmovex fp0,sp@- | 12 Bytes
- ! fmoved a7@(16), fp0 | value
- ! fmodd a7@(24),fp0 | base
- fmoved fp0,a7@- | push result
- moveml a7@+,d0-d1 | return_value
- + fmovex sp@+,fp0
- "); /* end asm */
-
- #endif __M68881__
- *** 1.4 1992/02/03 20:19:23
- --- sinh.c 1992/03/23 01:43:20
- ***************
- *** 168,174 ****
- fsinhd a7@(4), fp0 | sinh
- fmoved fp0,a7@- | push result
- moveml a7@+,d0-d1 | return_value
- ! "); /* end asm */
-
- #endif __M68881__
- #ifdef sfp004
- --- 168,174 ----
- fsinhd a7@(4), fp0 | sinh
- fmoved fp0,a7@- | push result
- moveml a7@+,d0-d1 | return_value
- ! "); /* end asm */
-
- #endif __M68881__
- #ifdef sfp004
-